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-- RectanglesB.Mesa Edited by Sandman on May 12, 1978 2:51 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [PageSize], 
ImageDefs: FROM "imagedefs" USING [ 

AddCleanupProcedure, AddFileRequest, AllReasons, Cleanupltem, CleanupMask, 

CleanupProcedure, FileRequest] , 
InlineDefs: FROM "inlinedefs" USING [BITAND], 
lODefs: FROM "iodefs" USING [CR, DEL. SP], 
MiscDefs: FROM "miscdefs" USING [Zero], 
RectangleDefs: FROM "rectangledefs" USING [ 

backgtype, BitmapErrorCode, BitmapObject , blanklines, BMHandle, BMptr, 

DCB, DCBchainHead, DCBnil, DCBptr, FAptr, Fptr, leftmargin, Rectangle, 

ROptions, Rptr, xCoord, yCoord], 
RectanglesA: FROM "rectanglesa'' USING [ 

ComputeCharWidth, def auHcharwidths, default! ineheight, def aul tmapdata, 

def aultpf ont, FixupRectangle] , 
SDDefs: FROM "sddefs" USING [sAddFileRequest , SD], 
SegmentDefs: FROM "segmentdef s" USING [ 

DefauUBase, Def aul tPages , Def aul tVersion, DeleteFileSegment . FileError, 

FileNameError, FileSegmentAddress , FileSegmentHandle, NewFile, 

NewFileSegment, OldFileOnly, Read, ReleaseFile, Swapin, Unlock], 
StreamDefs: FROM "streamdefs" USING [ 

DisplayHandle, GetDisplayStreamList , SetDisplayLine], 
SystemDefs: FROM "systemdefs" USING [ 

AllocateHeapNode, AllocateResidentPages , FreeHeapNode, FreePages]; 

DEFINITIONS FROM RectangleDefs; 

RectanglesB: PROGRAM [pagesf ormap, mapwordsperl ine: CARDINAL] 

IMPORTS ImageDefs, MiscDefs, RectanglesA, SystemDefs, SegmentDefs, 

StreamDefs 
EXPORTS RectangleDefs SHARES RectangleDefs, RectanglesA « 
BEGIN OPEN RectanglesA; 

-- CHARACTER constants 

CR: CHARACTER = lODefs.CR; 
Space: CHARACTER = lODefs.SP; 
DEL: CHARACTER = lODefs.DEL; 

-- GLOBAL PUBLIC Data (all PUBLIC for initialization guy ??) 

savedf irstDCB: DCBptr ^ NIL; 

tempDCB: UNSPECIFIED; 

bitmaps: PUBLIC BMHandle ♦- NIL; 

defaultfont: PUBLIC Fptr <- NIL; -- points to start of font 

defaul tfontsegment : FileSegmentHandle ^ NIL; 

SevenBitCharacter: TYPE = CHARACTER[OC. . 177C] ; 

FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 

-- GLOBAL Data 

wordsinpage: CARDINAL = Al toDefs . PageSize; 

-- Bitmap Rectangle Routines 

CreateRectangle: PUBLIC PROCEDURE [ 

bitmap: BMHandle, xO, width: xCoord, yO, height: yCoord] RETURNS[Rptr] « 

BEGIN 

rectangle: Rptr; 

rectangle ♦- SystemDefs. AnocateHeapNode[SIZE[Rectangle]]; 

rectanglet <- Rectangle[NIL, FALSE,, bitmap, xO, width, 0, yO , height, 0]; 

rectangle. options <- ROptions[FALSE .FALSE] ; 

rectangle. 1 ink <- bitmap, rectangles; 

bitmap. rectangles ♦- rectangle; 

FixupRect an gle[rect angle]; 

RETURN[rectangle]; 

END; 

DestroyRectangle: PUBLIC PROCEDURE [rectangle: Rptr] « 
BEGIN 

prev: Rptr; 

bitmap: BMHandle ^ rectangle. bitmap; 
IF bitmap . rectangles » rectangle THEN 

bitmap . rectangles ♦- rectangle. 1 ink 
ELSE 
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BEGIN 

prev ^ bitmap. rectangles; 

UNTIL rectangle » prev. link DO 

IF prev = NIL THEN ERROR; 

prev ♦- prev. 1 ink; 

ENDLOOP; 
prev. link ♦- rectangle. 1 ink; 
END; 
SystemDef s . FreeHeapNocle[rectangle]; 
END; 

- Bitmap Routines 

GetDefaultBitmap: PUBLIC PROCEDURE RETURNS [BMHandle] - 
BEGIN 

RETURN[defaultmapdata3; 
END; 

EVEN: PROCEDURE[v: UNSPECIFIED] RETURNS [UNSPECIFIED] » 
BEGIN 

-- make an even value by rounding v up 
RETURN[v+InlineDefs.BITAND[v, 1]]; 
END; 

CreateBitmap: PUBLIC PROCEDURE [pagesf ormap , wordsperl ine: CARDINAL] RETURNS[BMHandle] 
BEGIN 

mapdata: BMHandle; 
deb: DCBptr; 

mapdata <- SystemDef s .AllocateHeapNode[SIZE[BitmapObject]]; 
mapdatat ♦- 

BitmapObJect[NIL, NIL. NIL, NIL. 0, 0, 0, 0. 0, 0, 0, high, white]; 
-- NOTE: lots'a funnies because DCB's must be even 
-- and someone has to deallocate him eventual ly I 1 ) 
deb <- EVEN[mapdata.dcb <- SystemDefs . Al locateHeapNode[SIZE[DCB]+l]]; 
deb. next <- DCBnil ; 

ReallocateBitmap[map-data, pagesformap, wordsperl ine]; 
mapdata. link ^ bitmaps; 
bitmaps ♦- mapdata; 
RETURN[mapdata]; 
END; 

DestroyBitmap: PUBLIC PROCEDURE [mapdata: BMHandle] RETURNS [POINTER] - 
BEGIN 

addr: POINTER; 
prev: BMHandle; 
IF mapdata. rectangles # NIL THEN 

SIGNAL Bi tmapError[mapdata, BitmapOperation]; 
IF mapdata. addr § NIL THEN SystemDef s . FreePages[mapdata. addr]; 
IF mapdata. deb # NIL THEN SystemDef s . FreeHeapNode[mapdata. deb]; 
addr <- mapdata. addr; 

IF mapdata = bitmaps THEN bitmaps <- mapdata. link 
ELSE 

BEGIN 

prev ^ bitmaps; 

UNTIL mapdata = prev. link DO 
IF prev = NIL THEN ERROR; 
prev <- prev. link; 
ENDLOOP; 

prev. link ♦- mapdata. 1 ink; 

END; 
SystemDefs . FreeHeapNode[mapdata] ; 
RETURN[addr]; 
END; 

UpdateBitmap: PUBLIC PROCEDURE [mapdata: BMHandle] RETURNS [DCBptr] « 
BEGIN 

deb: DCBptr » EVEN[mapdata. deb] ; 
deb. bitmap <- mapdata. addr ; 
deb. height ♦- mapdata. height/2; 
deb. width *- mapdata. wordsperline; 
deb. indenting *- mapdata, indenting; 
deb. resolution *- mapdata. resolution; 
deb. background <- mapdata. background; 
RETURN[dcb]; 
END; 
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-- MAIN BODY CODE 

-- make file request on second START 

mesapreopen: short ImageDef s.FileRequest ^ ImageDef s . FileRequest [ 

file: NIL, access: SegmentDefs .Read, link:, 

body: short[fin:, name: "MesaFont. AT . "]] ; 
syspreopen: sliort ImageDeFs . FileRequest <- ImageDefs. FileRequest [ 

file: NIL, access: SegmentDefs. Read, link:, 

body: short[fill:, name: "SysFont.Al . "]]; 

IF SDDefs.SD[SDDefs.sAddFileRequest] j^ THEN 
BEGIN 

ImageDef s.AddFileReques t[Smesapreopen]; 
ImageDefs .AddFileRequest[ ©syspreopen] ; 
STOP; 
END; 

BEGIN OPEN SegmentDefs; 
IF mesapreopen. file « NIL THEN 
mesapreopen. file ^ NewFile[mesapreopen. name, Read, Def aultVersion 
1 FileNameError, FileError «> CONTINUE]; 
IF syspreopen .file = NIL THEN 

syspreopen. file <- NewFile[syspreopen . name, Read, Defaul tVersion 
1 FileNameError. FileError => CONTINUE]; 
END; 

-- now really do it 

InitFontFile[]; 

initbitmap[pagesformap, mapwordsperl ine]; 

BEGIN OPEN ImageDefs; 

cleanup ^ Cleanupltem[l ink: , proc: CleanRecs, 

mask: All Reasons -CI eanupMask[InLd] -CI eanupMask[OutLd]]; 
AddCleanupProcedure[@cleanup] 
END; 



END. of Rectangles 



